home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / text / xes.lha / XES / REXX / LoadArray.xdme < prev    next >
Text File  |  1995-08-01  |  349b  |  19 lines
  1. /* $VER: LoadArray.xdme 1.0 (01 Aug 1995) */
  2. /* Copyright © 1995 Fergus Duniho */
  3.  
  4. PARSE ARG v file
  5.  
  6. file = Strip(file)
  7. CALL Open(input,file,"R")
  8. size = 0
  9. DO FOREVER
  10.     line = "(" || readln(input) || ")"
  11.     IF Eof(input) THEN LEAVE
  12.     size = size + 1
  13.     xcom = "set" v || size line
  14.     xcom
  15. END
  16. xcom = "set" v || "0" size
  17. xcom
  18. CALL Close(input)
  19.